home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / speedy.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-09-14  |  12.0 KB  |  249 lines
  1. 5  '-- SPEEDY -- LAST CHANGE 21 FEB (1515)
  2. 6  CLS:PRINT :PRINT :PRINT "   MISSISSIPPI COOPERATIVE":PRINT "      EXTENSION SERVICE":
  3. 7  PRINT :PRINT "MISSISSIPPI STATE, MS  39762":PRINT :PRINT "       SPEEDY SPEND":PRINT :PRINT :FOR I=1 TO 1500:NEXT I:CLS:PRINT :PRINT "THIS PROGRAM IS A MODIFICATION OF ONE DEVELOPED AT CLEMSON UNIV.
  4. 8  PRINT :PRINT "FOR ADDITIONAL INFORMATION REGARDING MICROCOMPUTER PROGRAMS,":PRINT"CONTACT:":PRINT CHR$(13); "LEADER, COMPUTER APPLICATIONS AND SERVICES DEPARTMENT":PRINT "MISSISSIPPI COOPERATIVE EXTENSION SERVICE":
  5. 9  PRINT "BOX 5405":PRINT "MISSISSIPPI STATE, MISSISSIPPI    39762":PRINT "PHONE  (601) 325-3226":PRINT :INPUT "PRESS ENTER TO CONTINUE   ";AA
  6. 10  REM              ******  SPEEDY  ******
  7. 20  DIM S(19,6),BD(20,6),T$(20),X(10),Q(20)
  8. 30  DATA 30,27,15,0,4,3,3,7,2,1,2,1,1,1,1,1,1,0,0
  9. 40  DATA 23,21,13,12,6,3,3,7,3,1,2,1,1,1,1,1,1,0,0
  10. 50  DATA 21,20,11,12,7,3,3,7,3,2,3,1,1,1,2,2,1,0,0
  11. 60  DATA 18,20,10,12,5,2,3,8,4,2,3,2,1,1,3,4,1,0,0
  12. 70  DATA 18,20,9,12,5,2,3,7,4,3,3,3,1,1,4,4,1,0,0
  13. 80  DATA 16,17,7,8,6,2,3,7,6,2,4,1,1,1,5,5,1,0,8
  14. 100  DATA "FOOD                ","RENT OR MORTGAGE    ","UTILITIES           "
  15. 110  DATA "CAR PAYMENT         ","GAS AND OIL         ","CAR UPKEEP          "
  16. 120  DATA "CAR INS, LICENSE,ETC","OTHER DEBTS         ","CLOTHING            "
  17. 130  DATA "LIFE INSURANCE      ","DOCTOR AND MEDICAL  ","FURNISHINGS & EQUIP "
  18. 140  DATA "GENERAL SUPPLIES    ","EDUCATION           ","GIFTS, CONTRIBUTIONS"
  19. 150  DATA "RECREATION          ","PERSONAL            ","CHILDCARE, OTHER    "
  20. 160  DATA "SAVINGS             ","TOTALS              "
  21. 165  KK=0:H1$="#,#####.##"
  22. 170  CLS:INPUT "TURN PRINTER ON AND PRESS ENTER";E
  23. 180  CLS:INPUT "ENTER YOUR NAME";NA$
  24. 190  INPUT "NUMBER OF PEOPLE IN YOUR FAMILY";X(1):INPUT "NUMBER OF CARS IN YOUR FAMILY";X(2):INPUT "TAKE-HOME PAY EACH PAY PERIOD";X(3):PRINT "ENTER 52 IF YOU ARE PAID WEEKLY"
  25. 191  PRINT "      26 IF TWICE A MONTH":PRINT "      12 IF MONTHLY":INPUT "      1 IF YEARLY";X(4):PRINT :PRINT "MONTHLY ESTIMATES":PRINT :INPUT "FOOD";X(5):INPUT "CAR PAYMENTS";X(6):INPUT "RENT OR MORTGAGE";X(7):INPUT "UTILITIES";X(8)
  26. 192  INPUT "INSTALLMENT DEBTS WITH INTEREST DUE EACH MONTH";X(9):INPUT "OTHER - CHILD CARE, ALIMONY, HOUSEHOLD HELP ";X(10)
  27. 200  INPUT "IS DATA OK (Y OR N)";AN$:IF AN$="N" OR AN$="NO" THEN CLS: PRINT "RE-ENTER FINANCIAL DATA":GOTO 190
  28. 201  CLS: LOCATE 9,20: PRINT "PLEASE BE PATIENT--THERE WILL BE A SLIGHT DELAY":LOCATE 11,30: PRINT "! ! ! I'M  WORKING ! ! !"
  29. 207  FOR J=1 TO 6:FOR I=1 TO 19:READ S(I,J):S(I,J)=S(I,J)/100:NEXT I,J
  30. 208  FOR I=1 TO 20: READ T$(I):NEXT I:RESTORE
  31. 210  Z=X(3)*X(4):IF Z<=5000 THEN M=1
  32. 220  IF Z>5000 AND Z<=7500 THEN M=2
  33. 230  IF Z>7500 AND Z<=12000 THEN M=3
  34. 240  IF Z>12000 AND Z<=15500 THEN M=4
  35. 250  IF Z>15500 AND Z<=19000 THEN M=5
  36. 260  IF Z>19000 THEN M=6
  37. 265  Z=Z/12
  38. 270  DN=S(5,M)+S(6,M)+S(7,M)+S(9,M)+S(10,M)+S(11,M)+S(12,M)+S(13,M)+S(14,M)+S(15,M)+S(16,M)+S(17,M)+S(19,M):IF X(2)=0 THEN DN=DN-S(6,M)-S(7,M)-S(5,M)
  39. 280  BD(1,1)=X(5):BD(2,1)=X(7):BD(3,1)=X(8):BD(4,1)=X(6):OT=X(1)-1:IF KK>0 THEN GOTO 415
  40. 290  IF M<=4 AND X(2)=1 THEN BD(4,2)=150
  41. 300  IF M<=4 AND X(2)>1 THEN BD(4,2)=X(2)*75
  42. 310  IF M>4 AND X(2)=1 THEN BD(4,2)=250
  43. 320  IF M>4 AND X(2)>1 THEN BD(4,2)=X(2)*125
  44. 330  BD(5,2)=X(2)*60:BD(5,3)=X(2)*40:BD(6,2)=X(2)*40:BD(6,3)=X(2)*25
  45. 340  BD(7,3)=X(2)*20:IF X(6)>0 THEN BD(6,2)=BD(6,2)*0.8
  46. 350  BD(7,2)=X(2)*35:BD(8,2)=0.1*Z:BD(9,2)=45+(OT*25)
  47. 360  BD(9,3)=X(1)*10:IF M<=3 THEN BD(10,2)=X(1)*5
  48. 370  IF M>3 THEN BD(10,2)=X(1)*20
  49. 380  BD(11,2)=X(1)*15:BD(11,3)=X(1)*7:BD(12,2)=300:BD(12,3)=5
  50. 390  BD(13,2)=20+(OT*15):BD(14,2)=15+(OT*8):BD(15,2)=0.12*Z:BD(14,3)=10+(OT*5)
  51. 400  BD(16,2)=0.15*Z:BD(16,3)=X(1)*8:BD(17,2)=30+(OT*10):BD(15,3)=0.02*Z
  52. 410  BD(17,3)=X(1)*5:BD(10,3)=X(1)*5:BD(13,3)=10+(OT*5)
  53. 415  RS=Z-X(5)-X(6)-X(7)-X(8)-X(9)-X(10)
  54. 420  IF RS<=0 THEN GOTO 1360
  55. 430  FOR I=9 TO 19:IF S(I,M)=0 THEN GOTO 445
  56. 440  BD(I,1)=RS*(S(I,M)/DN)
  57. 445  NEXT I
  58. 450  IF BD(9,1)>BD(9,2) THEN BD(9,1)=BD(9,2)
  59. 460  IF BD(9,1)<BD(9,3) THEN BD(9,1)=BD(9,3)
  60. 470  IF BD(10,1)>BD(10,2) THEN BD(10,1)=BD(10,2)
  61. 475  IF BD(10,1)<BD(10,3) THEN BD(10,1)=BD(10,3)
  62. 480  IF BD(13,1)>BD(13,2) THEN BD(13,1)=BD(13,2)
  63. 485  IF BD(13,1)<BD(13,3) THEN BD(13,1)=BD(13,3)
  64. 490  IF BD(14,1)>BD(14,2) THEN BD(14,1)=BD(14,2)
  65. 495  IF BD(14,1)<BD(14,3) THEN BD(14,1)=BD(14,3)
  66. 500  IF BD(15,1)>BD(15,2) THEN BD(15,1)=BD(15,2)
  67. 505  IF BD(15,1)<BD(15,3) THEN BD(15,1)=BD(15,3)
  68. 510  IF BD(16,1)>BD(16,2) THEN BD(16,1)=BD(16,2)
  69. 520  IF BD(16,1)<BD(16,3) THEN BD(16,1)=BD(16,3)
  70. 530  IF BD(17,1)>BD(17,2) THEN BD(17,1)=BD(17,2)
  71. 540  IF BD(17,1)<BD(17,3) THEN BD(17,1)=BD(17,3)
  72. 550  IF BD(12,1)>BD(12,2) THEN BD(12,1)=BD(12,2)
  73. 560  IF BD(12,1)<BD(12,3) THEN BD(12,1)=BD(12,3)
  74. 570  IF BD(11,1)>BD(11,2) THEN BD(11,1)=BD(11,2)
  75. 580  IF BD(11,1)<BD(11,3) THEN BD(11,1)=BD(11,3)
  76. 590  IF X(2)<=0 THEN GOTO 680
  77. 610  FOR I=5 TO 7:IF S(I,M)<=0 THEN GOTO 625
  78. 620  BD(I,1)=RS*(S(I,M)/DN)
  79. 625  NEXT I
  80. 627  IF BD(6,1)>BD(6,2) THEN BD(6,1)=BD(6,2)
  81. 630  IF BD(6,1)<BD(6,3) THEN BD(6,1)=BD(6,3)
  82. 640  IF BD(7,1)>BD(7,2) THEN BD(7,1)=BD(7,2)
  83. 650  IF BD(7,1)<BD(7,3) THEN BD(7,1)=BD(7,3)
  84. 660  IF BD(5,1)>BD(5,2) THEN BD(5,1)=BD(5,2)
  85. 670  IF BD(5,1)<BD(5,3) THEN BD(5,1)=BD(5,3)
  86. 680  BD(8,1)=X(9):BD(18,1)=X(10)
  87. 700  ZP=Z:FOR I=1 TO 19:ZP=ZP-BD(I,1):NEXT I
  88. 710  BD(19,1)=BD(19,1)+ZP:SG=0:IF BD(19,1)<0 THEN SG=1
  89. 720  FOR I=1 TO 19:Q(I)=S(I,M):NEXT I:FOR I=4 TO 7:IF X(2)=0 THEN Q(I)=0
  90. 730  NEXT I:IF X(6)=0 THEN Q(4)=0
  91. 740  Q(2)=BD(2,1)/Z:Q(3)=(BD(3,1)/Z)*0.85:KO=0
  92. 750  IF M<=2 THEN Q(1)=X(1)*57.6
  93. 760  IF M=3 OR M=4 THEN Q(1)=X(1)*72
  94. 770  IF M>4 THEN Q(1)=X(1)*87
  95. 780  IF M<=2 AND X(1)=1 THEN Q(1)=87
  96. 790  IF M=3 AND X(1)=1 OR M=4 AND X(1)=1 THEN Q(1)=115
  97. 800  IF M>4 AND X(1)=1 THEN Q(1)=144
  98. 810  BD(1,4)=Q(1):Q(1)=Q(1)/Z:DN=0:TT=0:FOR I=1 TO 19:TT=TT+Q(I):NEXT I
  99. 820  FOR I=4 TO 19:DN=DN+Q(I):NEXT I:SH=1-TT:FOR I=4 TO 19:IF Q(I)=0 THEN GOTO 835
  100. 830  Q(I)=((Q(I)/DN)*SH)+Q(I)
  101. 835  NEXT I
  102. 837  FOR I=4 TO 19:BD(I,4)=Q(I)*Z:NEXT I
  103. 840  IF BD(4,4)>BD(4,2) THEN Q(4)=BD(4,2)/Z
  104. 850  IF BD(5,4)>BD(5,2) THEN Q(5)=BD(5,2)/Z
  105. 860  IF BD(5,4)<BD(5,3) THEN Q(5)=BD(5,3)/Z
  106. 870  IF BD(6,4)>BD(6,2) THEN Q(6)=BD(6,2)/Z
  107. 880  IF BD(6,4)<BD(6,3) THEN Q(6)=BD(6,3)/Z
  108. 890  IF BD(7,4)>BD(7,2) THEN Q(7)=BD(7,2)/Z
  109. 900  IF BD(7,4)<BD(7,3) THEN Q(7)=BD(7,3)/Z
  110. 910  IF BD(8,4)>BD(8,2) THEN Q(8)=BD(8,2)/Z
  111. 920  IF BD(9,4)>BD(9,2) THEN Q(9)=BD(9,2)/Z
  112. 930  IF BD(9,4)<BD(9,3) THEN Q(9)=BD(9,3)/Z
  113. 940  IF BD(10,4)>BD(10,2) THEN Q(10)=BD(10,2)/Z
  114. 950  IF BD(11,4)>BD(11,2) THEN Q(11)=BD(11,2)/Z
  115. 960  IF BD(11,4)<BD(11,3) THEN Q(11)=BD(11,3)/Z
  116. 970  IF BD(12,4)>BD(12,2) THEN Q(12)=BD(12,2)/Z
  117. 980  IF BD(13,4)>BD(13,2) THEN Q(13)=BD(13,2)/Z
  118. 990  IF BD(14,4)>BD(14,2) THEN Q(14)=BD(14,2)/Z
  119. 1000  IF BD(15,4)>BD(15,2) THEN Q(15)=BD(15,2)/Z
  120. 1010  IF BD(16,4)>BD(16,2) THEN Q(16)=BD(16,2)/Z
  121. 1020  IF BD(16,4)<BD(16,3) THEN Q(16)=BD(16,3)/Z
  122. 1030  IF BD(17,4)>BD(17,2) THEN Q(17)=BD(17,2)/Z
  123. 1040  IF BD(17,4)<BD(17,3) THEN Q(17)=BD(17,3)/Z
  124. 1042  IF BD(18,4)>BD(18,1) THEN Q(18)=(0.8*BD(18,1))/Z
  125. 1045  TT=0:DN=0
  126. 1050  FOR I=10 TO 17:BD(I,4)=Q(I)*Z:IF BD(I,4)<5 THEN Q(I)=5/Z
  127. 1060  NEXT I:FOR I=1 TO 19:TT=TT+Q(I):NEXT I
  128. 1070  FOR I=4 TO 19:DN=DN+Q(I):NEXT I:KO=KO+1:IF KO=10 THEN GOTO 1110
  129. 1080  IF TT>=1 THEN GOTO 1110
  130. 1085  SH=1-TT
  131. 1090  FOR I=4 TO 19:IF Q(I)=0 THEN GOTO 1105
  132. 1100  Q(I)=Q(I)+((Q(I)/DN)*SH)
  133. 1105  NEXT I
  134. 1107  GOTO 837
  135. 1110  IF TT<1 THEN Q(19)=Q(19)+1-TT
  136. 1120  IF TT>1 THEN Q(8)=Q(8)-TT+1
  137. 1125  BD(20,1)=0:BD(20,4)=0:BD(20,5)=0:BD(20,6)=0
  138. 1130  IF Q(8)>0 THEN GOTO 1160
  139. 1140  CR=Q(8):Q(8)=0:Q(15)=Q(15)+CR:IF Q(15)>0 THEN GOTO 1160
  140. 1150  CR=Q(15):Q(15)=0:Q(19)=Q(19)+CR
  141. 1160  FOR I=1 TO 19:BD(20,1)=BD(20,1)+BD(I,1):BD(I,4)=Q(I)*Z
  142. 1170  BD(20,4)=BD(20,4)+BD(I,4):NEXT I:DN=Z:IF BD(20,1)>Z THEN DN=BD(20,1)
  143. 1180  FOR I=1 TO 19:IF BD(I,1)=0 THEN BD(I,5)=0:GOTO 1200
  144. 1190  BD(I,5)=(BD(I,1)/DN)*100
  145. 1200  IF BD(I,4)>0 THEN BD(I,6)=(BD(I,4)/DN)*100ELSE BD(I,6)=0
  146. 1210  BD(20,5)=BD(20,5)+BD(I,5)
  147. 1220  BD(20,6)=BD(20,6)+BD(I,6)
  148. 1225  NEXT I
  149. 1230  SR=X(5)+X(6)+X(7)+X(8)+X(9)+X(10)
  150. 1235  H1$="#,#####.##"
  151. 1240  CLS:PRINT "YOU SAY YOU HAVE $";:PRINT USING H1$;Z;:PRINT " PER MONTH TO USE"
  152. 1245  LPRINT NA$;", YOU SAY YOU HAVE $";:LPRINT USING H1$;Z;:LPRINT " PER MONTH TO USE."
  153. 1250  PRINT "YOU ARE USING $";SR;" FOR THE FOLLOWING:"
  154. 1255  LPRINT "YOU ARE USING $";:LPRINT USING H1$;SR;:LPRINT " FOR THE FOLLOWING:
  155. 1285  LPRINT " "
  156. 1290  PRINT "FOOD                $";:PRINT USING H1$;X(5)
  157. 1295  LPRINT "FOOD                $";:LPRINT USING H1$;X(5)
  158. 1300  PRINT "CAR PAYMENTS        $";:PRINT USING H1$;X(6)
  159. 1305  LPRINT "CAR PAYMENTS        $";:LPRINT USING H1$;X(6)
  160. 1310  PRINT "RENT(MORTGAGE)      $";:PRINT USING H1$;X(7)
  161. 1315  LPRINT "RENT(MORTGAGE)      $";:LPRINT USING H1$;X(7)
  162. 1320  PRINT "UTILITIES           $";:PRINT USING H1$;X(8)
  163. 1325  LPRINT "UTILITIES           $";:LPRINT USING H1$;X(8)
  164. 1330  PRINT "OTHER DEBT PAYMENTS $";:PRINT USING H1$;X(9)
  165. 1335  LPRINT "OTHER DEBT PAYMENTS $";:LPRINT USING H1$;X(9)
  166. 1340  PRINT "CHILDCARE, OTHER    $";:PRINT USING H1$;X(10)
  167. 1345  LPRINT "CHILDCARE, OTHER    $";:LPRINT USING H1$;X(10)
  168. 1350  IF RS>0  THEN GOTO 1380
  169. 1360  PRINT :PRINT :PRINT :PRINT " OOPS YOU HAVE OVERSPENT BY $";:PRINT USING H1$;ABS(RS);:PRINT " PLEASE REVISE"
  170. 1365  FOR I=1 TO 2000:NEXT I
  171. 1370  GOTO 180
  172. 1380  PRINT "SO FAR SO GOOD, THERE IS $";:PRINT USING H1$;RS;:PRINT " LEFT TO SPEND":PRINT :PRINT
  173. 1382  LPRINT "SO FAR SO GOOD, THERE IS $";:LPRINT USING H1$;RS;:LPRINT " LEFT TO SPEND":LPRINT " "
  174. 1385  FOR I=1 TO 5000:NEXT I
  175. 1390  CLS:PRINT "WE HAVE JUGGLED YOUR MONTHLY BUDGET"
  176. 1395  LPRINT "WE HAVE JUGGLED YOUR MONTHLY BUDGET."
  177. 1396  LPRINT "HERE ARE OUR GUESSES AND COMPARISONS.":LPRINT " "
  178. 1400  PRINT "HERE ARE OUR GUESSES AND COMPARISONS"
  179. 1405  FOR I=1 TO 2000:NEXT I
  180. 1407  LPRINT TAB(14)"*";:LPRINT TAB(28)"*";:LPRINT TAB(42)"*"
  181. 1410  CLS:PRINT TAB(10)" COMPARATIVE MONTHLY BUDGET ANALYSIS"
  182. 1415  LPRINT TAB(10)" COMPARATIVE MONTHLY BUDGET ANALYSIS"
  183. 1420  H2$="-----------------------------------------------------------"
  184. 1430  PRINT ;H2$
  185. 1435  LPRINT H2$
  186. 1440  PRINT TAB(27)"YOUR BUDGET  COMPARATIVE BUDGET"
  187. 1445  LPRINT TAB(27)"YOUR BUDGET  COMPARATIVE BUDGET"
  188. 1450  PRINT "        ITEM             DOLLARS PERCENT   DOLLARS PERCENT"
  189. 1455  LPRINT "         ITEM            DOLLARS PERCENT   DOLLARS PERCENT"
  190. 1460  PRINT ;H2$:PRINT
  191. 1465  LPRINT H2$:LPRINT
  192. 1470  H3$="#,########.##":H4$="####.##":PRINT " TAKE HOME PAY       ";:PRINT USING H3$;DN;:PRINT "       ";:PRINT USING H3$;Z
  193. 1475  LPRINT " TAKE HOME PAY      ";:LPRINT USING H3$;DN;:LPRINT "       ";:LPRINT USING H3$;Z
  194. 1480  PRINT :PRINT :LPRINT " "
  195. 1485  PRINT "  EXPENSES":LPRINT "  EXPENSES"
  196. 1486  FOR I=1 TO 10:PRINT T$(I);:PRINT USING H3$;BD(I,1);:PRINT USING H4$;BD(I,5);:PRINT USING H3$;BD(I,4);:PRINT USING H4$;BD(I,6):NEXT I:FOR I=1 TO 5000:NEXT I
  197. 1489  CLS
  198. 1490  FOR I=11 TO 20:PRINT T$(I);:PRINT USING H3$;BD(I,1);:PRINT USING H4$;BD(I,5);:PRINT USING H3$;BD(I,4);:PRINT USING H4$;BD(I,6):NEXT I
  199. 1495  FOR I=1 TO 20:LPRINT T$(I);:LPRINT USING H3$;BD(I,1);:LPRINT USING H4$;BD(I,5);:LPRINT USING H3$;BD(I,4);:LPRINT USING H4$;BD(I,6):NEXT I
  200. 1498  LPRINT " ":LPRINT " ":LPRINT " "
  201. 1500  CLS:PRINT "MONEY CAN BUY MORE IF YOU PLAN":PRINT :PRINT "  COMMENTS"
  202. 1505  LPRINT "MONEY CAN BUY MORE IF YOU PLAN":LPRINT " ":LPRINT "   COMMENTS"
  203. 1510  F1=0:F2=0:FOR I=1 TO 8:F1=F1+BD(I,5):F2=F2+BD(I,1):NEXT I
  204. 1520  F3=100-F1:F4=Z-F2:PRINT "AN ESTIMATED ";:PRINT USING H4$;F1;:PRINT "% OR $";:PRINT USING H4$;F2;:PRINT " OF YOUR BUDGET"
  205. 1525  LPRINT "AN ESTIMATED ";:LPRINT USINGH4$;F1;:LPRINT "% OR $";:LPRINT USINGH4$;F2;:LPRINT " OF YOUR BUDGET"
  206. 1530  PRINT "GOES FOR FOOD, HOUSING, AUTO & OTHER DEBT."
  207. 1535  LPRINT "GOES FOR FOOD, HOUSING, AUTO & OTHER DEBT."
  208. 1540  IF F3>0  THEN PRINT "THIS LEAVES ";:PRINT USING H4$;F3;:PRINT "% OR $";:PRINT USING H4$;F4;:PRINT " TO DECIDE ABOUT.":LPRINT "THIS LEAVES ";:LPRINT USING H4$;F3;:LPRINT "% OR $";:LPRINT USING H4$;F4;:LPRINT " TO DECIDE ABOUT."
  209. 1550  IF F1>70 OR F4<200  THEN PRINT "YOU NEED CAREFUL PLANNING TO GET BY ON YOUR BUDGET.":LPRINT "YOU NEED CAREFUL PLANNING TO GET BY ON YOUR BUDGET."
  210. 1560  IF F1<55  THEN PRINT " CONGRATULATIONS--YOU ARE BETTER OFF THAN MOST.":LPRINT " CONGRATULATIONS--YOU ARE BETTER OFF THAN MOST."
  211. 1570  SX=ABS(BD(19,1)):IF BD(19,1)<0  THEN PRINT "WE GUESS YOU WILL NEED $";:PRINT USING H4$;SX;:PRINT " FROM SAVINGS.":LPRINT "WE GUESS YOU WILL NEED $";:LPRINT USING H4$;SX;:LPRINT " FROM SAVINGS."
  212. 1580  IF BD(19,1)<0 THEN PRINT "OR FROM A LOAN TO GET BY EACH MONTH.":LPRINT "OR FROM A LOAN TO GET BY EACH MONTH."
  213. 1590  F1=BD(1,1)-BD(1,4):IF F1>50  THEN PRINT "YOU MAY BE ABLE TO REDUCE YOUR FOOD BUDGET.":LPRINT "YOU MAY BE ABLE TO REDUCE YOUR FOOD BUDGET."
  214. 1600  F1=BD(4,1)-BD(4,4):IF F1>50  THEN PRINT "YOU MIGHT CUT CAR COST.":LPRINT "YOU MIGHT CUT CAR COST."
  215. 1610  F1=BD(8,5)-BD(8,6):IF F1>10  THEN PRINT "YOUR OTHER DEBT NEEDS TO BE REDUCED.":LPRINT "YOUR OTHER DEBT NEEDS TO BE REDUCED."
  216. 1620  PRINT :PRINT :PRINT "STAY WITH IT ";NA$
  217. 1625  LPRINT " ":LPRINT " ":LPRINT "STAY WITH IT ";NA$
  218. 1626  LPRINT CHR$(11):LPRINT CHR$(11)
  219. 1630  KK=KK+1:INPUT "DO YOU WISH TO REVISE YOUR BUDGET  (Y OR N)";AN$
  220. 1635  IF AN$="N" OR AN$="NO" GOTO 1840
  221. 1636  CLS:PRINT "YOUR MONTHLY INCOME FIGURE IS $";Z
  222. 1637  GOSUB 1827:IF XQ<>0 THEN Z=XQ
  223. 1640  CLS:PRINT "YOUR MONTHLY FOOD  FIGURE IS $";BD(1,1)
  224. 1650  GOSUB 1827:IF XQ<>0 THEN X(5)=XQ
  225. 1660  CLS:PRINT "YOUR CAR PAYMENTS FIGURE IS $";BD(4,1)
  226. 1670  GOSUB 1827:IF XQ<>0 THEN X(6)=XQ
  227. 1680  CLS:PRINT "YOUR RENT(MORTGAGE) INCLUDING TAX & INSURANCE IS $";BD(2,1)
  228. 1690  GOSUB 1827:IF XQ<>0 THEN X(7)=XQ
  229. 1700  CLS:PRINT "YOUR UTILITIES ESTIMATE IS $";BD(3,1)
  230. 1710  GOSUB 1827:IF XQ<>0 THEN X(8)=XQ
  231. 1720  CLS:PRINT "YOUR OTHER DEBT FIGURE IS $";BD(8,1)
  232. 1730  GOSUB 1827:IF XQ<>0 THEN X(9)=XQ
  233. 1740  CLS:PRINT "YOUR CHILDCARE, ALIMONY, HOUSEHOLD HELP & OTHER FIGURE IS $";BD(18,1)
  234. 1750  GOSUB 1827:IF XQ<>0 THEN X(10)=XQ
  235. 1755  H9$="                            MOST        LEAST"
  236. 1760  N=5:NN=7:K1=0
  237. 1770  FOR I=N TO NN
  238. 1775  CLS:PRINT "BELOW ARE THE LARGEST AND SMALLEST AMOUNTS ALLOWED PER MONTH":K1=K1+1:PRINT :PRINT
  239. 1780  PRINT H9$:PRINT T$(I);:PRINT USING H3$;BD(I,2);BD(I,3)
  240. 1800  GOSUB 1828
  241. 1820  NEXT I
  242. 1825  N=9:NN=17:IF K1=3 THEN GOTO 1770ELSE GOTO 1826
  243. 1826  CLS:LOCATE 9,10: PRINT"BE PATIENT--I'M WORKING AGAIN":GOTO 270
  244. 1827  XQ=0:INPUT "TO CHANGE, ENTER A NEW FIGURE;  OTHERWISE HIT ENTER ";XQ:RETURN
  245. 1828  XQ=0:INPUT "TO CHANGE LARGEST AMOUNT, ENTER A NEW FIGURE;  OTHERWISE HIT ENTER ";XQ:IF XQ<> 0 THEN BD(I,2)=XQ
  246. 1829  XQ=0:INPUT "TO CHANGE SMALLEST AMOUNT, ENTER A NEW FIGURE; OTHERWISE HIT ENTER ";XQ:IF XQ<>0 THEN BD(I,3)=XQ
  247. 1830  RETURN
  248. 1840  END
  249.